home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.03 Mar 87 / Printer LSP sources / MyGlobalsStuff < prev    next >
Encoding:
Text File  |  1987-02-13  |  2.0 KB  |  80 lines  |  [TEXT/PJMM]
  1. UNIT MyGlobals;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         MacPrint;
  7.  
  8.     TYPE
  9.         WordPtr = ^INTEGER;
  10.         MyWindMode = (NullMode, OpenMode, DAMode);
  11.         WindowData = RECORD        { Can only hold one 32-bit value in wRefCon }
  12.                 theTE : TEHandle;            { for TextEdit record }
  13.                 theTHP : THPrint;        { the TPrint we are analyzing }
  14.             END;
  15.         WindowDataPtr = ^WindowData;
  16.         WindowDataHandle = ^WindowDataPtr;
  17.  
  18.     CONST
  19. { Change these to suit your taste }
  20.         myStdFont = monaco;
  21.         myStdSize = 9;
  22.         myHdgFont = systemFont;    { aka Chicago }
  23.         myHdgSize = 12;
  24. { menus }
  25.         appleMenu = 1;
  26.         fileMenu = 2;
  27.         newItem = 1;
  28.         closeItem = 2;
  29.         stlItem = 4;
  30.         jobItem = 5;
  31.         setupItem = 7;
  32.         printItem = 8;
  33.         quitItem = 10;
  34.         lastFileItem = 10;
  35.         editMenu = 3;
  36.         lastMenu = 3; {Number of menus}
  37. { Resources }
  38.         ALRT_about = 256;        { About… message }
  39.         ALRT_printerr = 257;    { report printing error }
  40.         DLOG_printing = 258;    { printing status dialog }
  41.         STR_id = 256;                {about message}
  42.         STR_pagehead = 257;    { page heading }
  43.         STR_prepare = 300;        { messages for printing status }
  44.         STR_printing = 301;
  45.         STR_spooling = 302;
  46.         STR_of = 303;
  47.         STR_prspool = 304;
  48.         STRN_scan = 256;        { enumeration literals }
  49.         STRN_feed = 257;
  50.         STRN_wdev = 258;
  51.         STRN_job = 259;
  52.         STRN_bool = 260;
  53.         WIND_main = 256;
  54. {Constant declared for field windowKind}
  55.         myDocument = 8;
  56. { Character }
  57.         Return = $0D;
  58.  
  59.     VAR
  60.  
  61.         myWindow : WindowPtr;
  62.         myPeek : WindowPeek;
  63.         hTE : TEHandle; {The active text edit handle}
  64.         printHdl : THPrint; {for actual printing}
  65.         myMenus : ARRAY[1..lastMenu] OF MenuHandle;
  66.         dragRect : Rect;
  67.         theChar : CHAR; {Keyboard input goes here}
  68.         doneFlag : BOOLEAN;
  69.         printFlag : BOOLEAN; {The user selected 'Print…' from the File menu}
  70.         currWMode : MyWindMode;    { sets menu options }
  71.         myEvent : EventRecord; {Shared by all routines}
  72.         watchHdl : CursHandle; {The wait cursor}
  73.         wdh : WindowDataHandle;    { temporary }
  74.         ph : THPrint;        { temporary for analyzed TPrint record }
  75.         spare : Ptr; {a preallocated area to be used by the next window}
  76.         linebuff : Str255;
  77.  
  78. IMPLEMENTATION
  79.  
  80. END.